home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / v7n13.arc / SETMODE.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-07-01  |  11.1 KB  |  150 lines
  1. 100 REM - BASIC PROGRAM TO CREATE SETMODE.COM 
  2. 110 CLS:PRINT "Creating SETMODE.COM ": OPEN "SETMODE.COM " AS #1 LEN = 1
  3. 120 FIELD #1, 1 AS A$: CHECKSUM#=0
  4. 130 FOR I = 1 TO   131
  5. 140  LINESUM#=0: LOCATE 2,3: PRINT "Countdown: "   131 - I ;
  6. 150  FOR J = 1 TO  16: READ BYTE$: CHECKSUM#=CHECKSUM#+VAL("&H"+BYTE$)
  7. 160   LINESUM#=LINESUM#+VAL("&H"+BYTE$)
  8. 170   IF (BYTE < 256) THEN LSET A$=CHR$(VAL("&H"+BYTE$)): PUT #1
  9. 180  NEXT J
  10. 190  READ LINETOT$: LINECHECK# = VAL("&H"+LINETOT$)
  11. 200  IF LINECHECK# = LINESUM# THEN GOTO 220
  12. 210  LOCATE 4,2: PRINT "Error in line #"  ;  260 +  10 * I: GOTO 260
  13. 220 NEXT I
  14. 230 CLOSE: READ FILETOT$ : FILECHECK# = VAL(FILETOT$)
  15. 240 IF CHECKSUM# <> FILECHECK# THEN GOTO 260
  16. 250 PRINT: PRINT "SETMODE.COM  created successfully": SYSTEM
  17. 260 PRINT: PRINT "SETMODE.COM  is not valid!": END
  18. 270 DATA E9, 5B,  7, 53, 45, 54, 4D, 4F, 44, 45, 20, 31, 2E, 30, 20, 28,   453
  19. 280 DATA 63, 29, 20, 31, 39, 38, 38, 20, 5A, 69, 66, 66, 20, 43, 6F, 6D,   474
  20. 290 DATA 6D, 75, 6E, 69, 63, 61, 74, 69, 6F, 6E, 73, 20, 43, 6F, 2E,  D,   5B7
  21. 300 DATA  A, 50, 43, 20, 4D, 61, 67, 61, 7A, 69, 6E, 65, 20, FE, 20, 54,   57B
  22. 310 DATA 6F, 6D, 20, 4B, 69, 68, 6C, 6B, 65, 6E,  D,  A, 48, 6F, 74, 6B,   56F
  23. 320 DATA 65, 79, 20, 69, 73, 20, 41, 6C, 74, 2D, 4D, 24, 1A,  D,  A, 41,   42B
  24. 330 DATA 6C, 72, 65, 61, 64, 79, 20, 49, 6E, 73, 74, 61, 6C, 6C, 65, 64,   641
  25. 340 DATA 24,  2,  1, 53, 45, 54, 4D, 4F, 44, 45, 20, 31, 2E, 30, 20, 20,   327
  26. 350 DATA 20, 18, 20, 19, 20, 1A, 20, 1B, 20, 2B, 20, 2D, 20, 20, 3C, 43,   23D
  27. 360 DATA 52, 3E, 20, 45, 73, 63,  0,  4,  4, 43, 4F, 4D, 4D, 55, 4E, 49,   3EB
  28. 370 DATA 43, 41, 54, 49, 4F, 4E, 20, 50, 4F, 52, 54, 53,  0,  2,  5, 50,   3CD
  29. 380 DATA 6F, 72, 74, 3A,  0, 10,  5, 31,  0, 17,  5, 32,  0, 1E,  5, 33,   279
  30. 390 DATA  0, 25,  5, 34,  0,  2,  6, 42, 70, 73, 3A,  0,  2,  7, 50, 61,   27F
  31. 400 DATA 72, 69, 74, 79, 3A,  0,  2,  8, 44, 61, 74, 61, 20, 62, 69, 74,   4E5
  32. 410 DATA 73, 3A,  0,  2,  9, 53, 74, 6F, 70, 20, 42, 69, 74, 73, 3A,  0,   44A
  33. 420 DATA  2,  A, 44, 53, 52, 3A,  0,  4,  D, 44, 49, 53, 50, 4C, 41, 59,   356
  34. 430 DATA  0,  4,  E, 4D, 6F, 64, 65, 3A,  0,  2,  F, 30, 20, 31, 20, 32,   2B5
  35. 440 DATA 20, 33, 20, 34, 20, 35, 20, 36, 20, 37, 20, 31, 33, 20, 31, 34,   2B2
  36. 450 DATA 20, 31, 35, 20, 31, 36, 20, 31, 37, 20, 31, 38, 20, 31, 39,  0,   2A8
  37. 460 DATA  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0,     0
  38. 470 DATA  0,  0, 36, 36, 36, 36, 36, 36, 36, 19,  0,  0,  0,  0,  0, 14,   1A7
  39. 480 DATA 14, 18, 14, 30, 10, 30, 10, 10, 20, 20, 20, 20, 20, 30,  0,  0,   1A0
  40. 490 DATA  0,  0,  0, 10, 10, 30, 10, 20, 20, 20, E8, 3E,  3, 26, FF, 37,   345
  41. 500 DATA 26, A0, 49,  0, 24, 7F, A2, 3B,  2, C6,  6, 3C,  2,  1, BB,  7,   45E
  42. 510 DATA 70, 3C,  7, 74, 21, BB,  3,  5, C6,  6, 3C,  2,  0, 3C,  3, 77,   3CB
  43. 520 DATA 15, C6,  6, 3C,  2,  1, 26, 8A, 3E, 62,  0, B4,  8, CD, 10, 8A,   493
  44. 530 DATA DC, 8A, FC, 80, F7, 77, 89, 1E, 34,  2, BF, 5E,  8, 26, 8A, 16,   718
  45. 540 DATA 4A,  0, 80, EA, 28, D0, EA, 88, 16, 3A,  2, 32, F6, C6,  6, 31,   695
  46. 550 DATA  2,  1, E8, 3D,  2, C6,  6, 31,  2,  6, E8, 35,  2, C6,  6, 31,   44B
  47. 560 DATA  2,  3, E8, 2D,  2, BE, 71,  1, AD,  A, C0, 74,  B, 8B, D0,  2,   59F
  48. 570 DATA 16, 3A,  2, E8, 8B,  2, EB, F0, 26, 80, 3E, 49,  0, 13, 77,  C,   565
  49. 580 DATA E8,  0,  2, FE, C2, B6, 10, B0, 1E, E8, 80,  2, E8, EC,  2, E8,   866
  50. 590 DATA 8E,  4, 8A, 2E, 35,  2, E8, 96,  1, 32, E4, CD, 16, 50, 8A, 2E,   601
  51. 600 DATA 34,  2, E8, 8A,  1, 58, 80, FC, 48, 75, 15, 26, 83, 3E,  0,  0,   536
  52. 610 DATA  0, 74, D9, FE,  E, 3D,  2, 79, D3, C6,  6, 3D,  2,  4, EB, CC,   6AA
  53. 620 DATA 80, FC, 50, 75, 12, FE,  6, 3D,  2, 80, 3E, 3D,  2,  4, 76, BC,   5C9
  54. 630 DATA C6,  6, 3D,  2,  0, EB, B5, 80, FC, 4D, 75,  5, B0,  1, E8, 77,   6FE
  55. 640 DATA  0, 80, FC, 4B, 75,  5, B0, FF, E8, 6D,  0, 3C, 2B, 75,  5, B1,   6D7
  56. 650 DATA  1, E9, A8,  0, 3C, 2D, 75,  5, B1, FF, E9, 9F,  0, 80, FC,  1,   72A
  57. 660 DATA 74,  6, 3C,  D, 74,  9, EB, 84, 26, A0, 49,  0, A2, 3B,  2, 32,   4CF
  58. 670 DATA F6, BE, 5E,  8, B9, 28,  0, 8A, 16, 3A,  2, AD, E8, F1,  1, E2,   740
  59. 680 DATA FA, FE, C6, 80, FE, 12, 75, EC, E8, 10,  2, 26, 8F,  7, 8A, 1E,   80D
  60. 690 DATA 3B,  2, 26, 3A, 1E, 49,  0, 74, 1E, 32, FF, 8A, 8F, 56,  2, 26,   45E
  61. 700 DATA A1, 10,  0, 24, CF,  A, C1, 26, A3, 10,  0, 8B, C3, CD, 10, B4,   627
  62. 710 DATA  2, 33, D2, 32, FF, CD, 10, C3, 80, 3E, 3D,  2,  0, 74, 1A, 8A,   5ED
  63. 720 DATA 1E, 3E,  2,  2, D8, 88, 1E, 3E,  2, 80, FB,  3, 77, EA, 32, FF,   62E
  64. 730 DATA D1, E3, 26, 83, 3F,  0, 74, E0, C3, 80, 3E, 41,  2,  0, 74, 1B,   643
  65. 740 DATA 8A, 1E, 3B,  2,  2, D8, 88, 1E, 3B,  2, 80, FB, 13, 77, EA, 32,   5C3
  66. 750 DATA FF, 8A, 8F, 42,  2, 22,  E, 41,  2, 74, DE, C3, 8A, 1E, 3E,  2,   5CC
  67. 760 DATA 32, FF, D1, E3, 26, 8B, 17, 83, C2,  3, 8A, 26, 3D,  2, FE, CC,   7AE
  68. 770 DATA 74,  F, FE, CC, 74, 3B, FE, CC, 74, 5B, FE, CC, 74, 65, E9, CB,   9EC
  69. 780 DATA FE, E8, C1,  2, 80, F9,  1, 75, 11, 83, FB,  3, 75,  1, 43, D1,   7B4
  70. 790 DATA EB,  B, DB, 75, 16, BB, 80,  1, EB, 11, D1, E3, 83, FB,  4, 75,   83F
  71. 800 DATA  1, 4B, 81, FB, 80,  1, 76,  3, BB,  1,  0, E8, 97,  2, E9, 9B,   683
  72. 810 DATA FE, EC, 8A, D8, 24, C7, D0, EB, D0, EB, D0, EB,  2, D9, 80, E3,   BA6
  73. 820 DATA  7, F6, C3,  1, 75,  5, F6, C3,  6, 75, F1, D0, E3, D0, E3, D0,   996
  74. 830 DATA E3,  A, C3, EB, 11, EC, 8A, E0, 80, E4, FC,  2, C1, 24,  3,  A,   856
  75. 840 DATA C4, EB,  3, EC, 34,  4, EE, E9, 62, FE,  0,  6,  5,  1,  1, 8A,   6A4
  76. 850 DATA 36, 3D,  2,  A, F6, 74, 28, 8A, DE, 32, FF, 8A, 8F, 9A,  4, 80,   6E1
  77. 860 DATA C6,  5, B0,  7, F6, 26, 3E,  2,  4, 11, 2A, C1,  2,  6, 3A,  2,   422
  78. 870 DATA 8A, D0, E8, D6,  0, 8A, E5, E8, B6,  0, FE, C9, 75, F4, C3, 80,   A98
  79. 880 DATA 3E, 3B,  2, 13, 77, F8, E8, 1A,  0, B6,  F, B1,  2, EB, E3,  1,   646
  80. 890 DATA  3,  5,  7,  9,  B,  D,  F,  0,  0,  0,  0,  0, 12, 15, 18, 1B,    99
  81. 900 DATA 1E, 21, 24, 8A, 1E, 3B,  2, 32, FF, 8A, 97, DF,  4,  2, 16, 3A,   4CF
  82. 910 DATA  2, C3,  A, F6, 74,  8, B0, 20, B9, 20, 20, E8, 1F,  0, B0, C9,   68A
  83. 920 DATA B9, CD, BB, E8, 17,  0, B0, BA, B9, 20, BA, E8,  F,  0, FE,  E,   840
  84. 930 DATA 31,  2, 75, F2, B0, C8, B9, CD, BC, E8,  1,  0, C3, 8A, 16, 3A,   7DA
  85. 940 DATA  2, E8, 18,  0, C6,  6, 32,  2, 26, 8A, C1, E8,  E,  0, FE,  E,   575
  86. 950 DATA 32,  2, 75, F5, 8A, C5, E8,  3,  0, FE, C6, C3, 50, E8, 4B,  0,   7E2
  87. 960 DATA 80, 3E, 3C,  2,  1, 74,  4, 8A, 26, 34,  2, 89,  5, 47, 47, 58,   3CF
  88. 970 DATA 80, 3E, 3C,  2,  1, 74,  6, A8, 80, 74,  2, B0, 2A, E8,  C,  0,   4E3
  89. 980 DATA C3, AC,  A, C0, 74,  5, E8,  3,  0, EB, F6, C3, 8A, 26, 34,  2,   727
  90. 990 DATA 53, 51, E8, 26,  0, 26, 89, 17, 8A, DC, 26, 8A, 3E, 62,  0, B9,   5E7
  91. 1000 DATA  1,  0, B4,  9, CD, 10, 59, 5B, FE, C2, C3, E8,  D,  0, 26, 89,   676
  92. 1010 DATA 17, 26, 8A, 3E, 62,  0, B4,  8, CD, 10, C3, 26, 8A, 1E, 62,  0,   4F3
  93. 1020 DATA 32, FF, D1, E3, 81, C3, 50,  0, C3, 59, 65, 73,  0, 20, 4E, 6F,   74A
  94. 1030 DATA  0, 6E, 2F, 61,  0, 20, 4E, 6F, 6E, 65,  0, 20, 20, 4F, 64, 64,   405
  95. 1040 DATA  0, 20, 45, 76, 65, 6E,  0, 53, 70, 61, 63, 65,  0, 20, 4D, 61,   468
  96. 1050 DATA 72, 6B,  0, CB,  5, D1,  5, D7,  5, DD,  5, 33, DB, 88, 1E, 31,   626
  97. 1060 DATA  2, B0,  7, F6, E3, D0, E8, B9, 10,  6,  2,  E, 3A,  2,  2, C8,   62F
  98. 1070 DATA 26, 8B, 17, 8B, EA,  B, D2, 75,  E, BE, C1,  5, 8B, D1, 80, EA,   7E7
  99. 1080 DATA  2, E8, 5D, FF, E9, C9,  0, B0, 30, 8B, D1, E8, 5E, FF, 8B, D5,   9D9
  100. 1090 DATA 83, C2,  3, E8, CF,  0, 53, E8, CB,  0, 5B,  B, DB, 74, 46, 33,   733
  101. 1100 DATA D2, B8,  0, 2D, F7, F3, C6,  6, 32,  2,  6, 51, 8B, F1, BB,  A,   739
  102. 1110 DATA  0, 8B, D0, 33, C0, 8B, CA, 33, D2, F7, F3, 91, F7, F3, 92,  4,   9A3
  103. 1120 DATA 30, 52, 4E, 8B, D6, E8, 24, FF, FE,  E, 32,  2, 5A, 8B, C1,  B,   72D
  104. 1130 DATA CA, 75, E2, 8B, D6, FE, CA, B0, 20, E8, 10, FF, FE, CA, FE,  E,   AE5
  105. 1140 DATA 32,  2, 75, F1, 59, 8B, D5, 83, C2,  3, EC, 50, BE, C5,  5, A8,   807
  106. 1150 DATA  8, 74,  F, 25, 30,  0, D1, E8, D1, E8, D1, E8, 8B, F0, 8B, B4,   8C5
  107. 1160 DATA E3,  5, 8B, D1, 80, EA,  4, 80, C6,  1, E8, D4, FE, 58, 50, 24,   87F
  108. 1170 DATA  3,  4, 35, 8B, D1, 80, C6,  2, E8, D1, FE, 5A, 52, B0, 31, F6,   81A
  109. 1180 DATA C2,  4, 74,  2, FE, C0, 8B, D1, 80, C6,  3, E8, BE, FE, 8B, D5,   9A3
  110. 1190 DATA 83, C2,  6, EC, BE, BD,  5, A8, 20, 74,  3, BE, B9,  5, 8B, D1,   7CE
  111. 1200 DATA 80, C6,  4, 80, EA,  2, E8, 98, FE, 58, 8B, D5, 83, C2,  3, EE,   922
  112. 1210 DATA 8A, 1E, 31,  2, 32, FF, 43, 43, 80, FB,  8, 73,  7, 88, 1E, 31,   566
  113. 1220 DATA  2, E9, FD, FE, C3, EC, 8A, E0, B0, 80, EE, 83, EA,  3, EC, 86,   AFF
  114. 1230 DATA D8, EE, 42, EC, 86, F8, EE, 42, 42, 8A, C4, EE, C3,  1,  2,  1,   8E7
  115. 1240 DATA  2,  2,  1,  1,  3,  2,  2,  3,  2,  1,  2,  2, 3A,  7, 3A,  7,    99
  116. 1250 DATA 42,  7, 42,  7, 4A,  7, 4A,  7, 52,  7, 42,  7, 5A,  7, 52,  7,   290
  117. 1260 DATA 62,  7, 62,  7, 6A,  7, 6A,  7, 5A,  7, 32, 35, 78, 34, 30, 20,   378
  118. 1270 DATA 20,  0, 32, 35, 78, 38, 30, 20, 20,  0, 33, 32, 30, 78, 32, 30,   316
  119. 1280 DATA 30,  0, 36, 34, 30, 78, 32, 30, 30,  0, 33, 32, 30, 78, 32, 30,   343
  120. 1290 DATA 30,  0, 36, 34, 30, 78, 33, 35, 30,  0, 36, 34, 30, 78, 34, 38,   358
  121. 1300 DATA 30,  0, 54, 65, 78, 74, 20,  0, 47, 72, 61, 70, 68,  0, 43, 6F,   499
  122. 1310 DATA 6C, 6F, 72,  0, 4D, 6F, 6E, 6F, 20,  0, 42, 2F, 57, 20, 20,  0,   40E
  123. 1320 DATA 8A, 1E, 3B,  2, B6,  E, 8A, 16, 3A,  2, 80, C2,  9, 8A, C3, B1,   5CE
  124. 1330 DATA  A, 32, E4, F6, F1, 8A, FC,  A, C0, 75,  2, B0, F0,  4, 30, E8,   88A
  125. 1340 DATA CA, FD, 8A, C7,  4, 30, E8, C3, FD, 80, FB, 13, 77, 42, 80, C2,   97D
  126. 1350 DATA  3, 32, FF, BE, 72,  7, 80, FB,  7, 74,  D, 72,  3, 80, EB,  5,   653
  127. 1360 DATA 80, FB,  3, 76,  3, BE, 78,  7, E8, 96, FD, FE, C2, 8A, 87,  D,   88D
  128. 1370 DATA  7, BE, 8A,  7, FE, C8, 74,  A, BE, 7E,  7, FE, C8, 74,  3, BE,   7D8
  129. 1380 DATA 84,  7, E8, 7C, FD, FE, C2, D1, E3, 8B, B7, 1C,  7, E8, 71, FD,   A1B
  130. 1390 DATA C3, FB, 9C, 50, E4, 60, 3C, 32, 74,  7, 58, 9D, 2E, FF, 2E, 36,   75D
  131. 1400 DATA  2, B4,  2, CD, 16, 24,  F, 3C,  8, 75, EF, 2E, 80, 3E, 33,  2,   497
  132. 1410 DATA  0, 75, E7, 2E, FE,  6, 33,  2, E4, 61, 8A, E0,  C, 80, E6, 61,   745
  133. 1420 DATA 8A, C4, EB,  0, E6, 61, FA, B0, 20, E6, 20, FB, 53, 51, 52, 55,   896
  134. 1430 DATA 56, 57, 1E,  6,  E, 1F, B8, 40,  0, 8E, C0, E8, 1C, FA, FE,  E,   64E
  135. 1440 DATA 33,  2,  7, 1F, 5F, 5E, 5D, 5A, 59, 5B, 58, 9D, CF, 90, BA,  3,   594
  136. 1450 DATA  1, B4,  9, CD, 21, B8,  0, 1A, CD, 10, 3C, 1A, 75, 18, B4, 20,   512
  137. 1460 DATA 80, FB,  B, 74, 49, 80, FB,  C, 74, 44, B4, 10, 80, FB,  7, 74,   73C
  138. 1470 DATA 3D, 80, FB,  8, 74, 38, 32, F6, B4, B8, E8, 88,  0, 75,  3, 80,   768
  139. 1480 DATA CE,  2, B4, B0, E8, 7E,  0, 75,  3, 80, CE,  1, 88, 36, 41,  2,   662
  140. 1490 DATA B4, 12, B3, 10, CD, 10, 80, FB, 10, 74, 17,  6, B8, 40,  0, 8E,   608
  141. 1500 DATA C0, B4,  4, 26, F6,  6, 87,  0,  2,  7, 74,  2, B4,  8,  8, 26,   48A
  142. 1510 DATA 41,  2, F6, 16,  0,  1, 33, DB, 8C, C8, 43, 3B, C3, 8E, C3, 74,   6B8
  143. 1520 DATA 1A, BE,  0,  1, 8B, FE, B9, 10,  0, F3, A6,  B, C9, 75, EB, BA,   7B2
  144. 1530 DATA 5D,  1, B4,  9, CD, 21, B8,  1, 4C, CD, 21, B8,  9, 35, CD, 21,   5E0
  145. 1540 DATA 89, 1E, 36,  2, 8C,  6, 38,  2, BA,  1,  8, B8,  9, 25, CD, 21,   442
  146. 1550 DATA A1, 2C,  0, 8E, C0, B4, 49, CD, 21, BA,  D,  E, B1,  4, D3, EA,   74D
  147. 1560 DATA B8,  0, 31, CD, 21, 33, F6, 1E, 32, C0, 8E, D8, 8A, 2C, B0, 55,   731
  148. 1570 DATA 88,  4, EB,  0, 8A, 24, 88, 2C, 1F, 3A, C4, C3,  0,  0,  0,  0,   4B9
  149. 1580 DATA 202240
  150.